home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / tviewx / setup.exe / file0015_c6893_c7eb3.bin (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-22  |  56.5 KB  |  1,478 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{9A6141AE-D028-11D2-86A1-444553540000}#1.0#0"; "TVIEWX.OCX"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Imca Systems OutlineTreeViewX ActiveX Control"
  6.    ClientHeight    =   6240
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   7200
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   416
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   480
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin TabDlg.SSTab SSTab1 
  17.       Height          =   6075
  18.       Left            =   0
  19.       TabIndex        =   1
  20.       Top             =   120
  21.       Width           =   7005
  22.       _ExtentX        =   12356
  23.       _ExtentY        =   10716
  24.       _Version        =   327680
  25.       Style           =   1
  26.       Tabs            =   9
  27.       TabHeight       =   529
  28.       WordWrap        =   0   'False
  29.       ShowFocusRect   =   0   'False
  30.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  31.          Name            =   "Tahoma"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       TabCaption(0)   =   "About TOutlineTreeViewX"
  40.       TabPicture(0)   =   "Form1.frx":030A
  41.       Tab(0).ControlCount=   8
  42.       Tab(0).ControlEnabled=   -1  'True
  43.       Tab(0).Control(0)=   "Label4"
  44.       Tab(0).Control(0).Enabled=   0   'False
  45.       Tab(0).Control(1)=   "Label5"
  46.       Tab(0).Control(1).Enabled=   0   'False
  47.       Tab(0).Control(2)=   "Label6"
  48.       Tab(0).Control(2).Enabled=   0   'False
  49.       Tab(0).Control(3)=   "Label7"
  50.       Tab(0).Control(3).Enabled=   0   'False
  51.       Tab(0).Control(4)=   "Label8"
  52.       Tab(0).Control(4).Enabled=   0   'False
  53.       Tab(0).Control(5)=   "Label10"
  54.       Tab(0).Control(5).Enabled=   0   'False
  55.       Tab(0).Control(6)=   "Text1"
  56.       Tab(0).Control(6).Enabled=   0   'False
  57.       Tab(0).Control(7)=   "Picture1"
  58.       Tab(0).Control(7).Enabled=   0   'False
  59.       TabCaption(1)   =   "&1 Get and Set Data"
  60.       TabPicture(1)   =   "Form1.frx":0326
  61.       Tab(1).ControlCount=   4
  62.       Tab(1).ControlEnabled=   0   'False
  63.       Tab(1).Control(0)=   "OutlineTreeViewX1"
  64.       Tab(1).Control(0).Enabled=   0   'False
  65.       Tab(1).Control(1)=   "Label1(2)"
  66.       Tab(1).Control(1).Enabled=   0   'False
  67.       Tab(1).Control(2)=   "Label1(1)"
  68.       Tab(1).Control(2).Enabled=   0   'False
  69.       Tab(1).Control(3)=   "Label1(0)"
  70.       Tab(1).Control(3).Enabled=   0   'False
  71.       TabCaption(2)   =   "&2 Working Logic"
  72.       TabPicture(2)   =   "Form1.frx":0342
  73.       Tab(2).ControlCount=   2
  74.       Tab(2).ControlEnabled=   0   'False
  75.       Tab(2).Control(0)=   "Logictree"
  76.       Tab(2).Control(0).Enabled=   0   'False
  77.       Tab(2).Control(1)=   "Label1(3)"
  78.       Tab(2).Control(1).Enabled=   0   'False
  79.       TabCaption(3)   =   "&3 Inplace Editors"
  80.       TabPicture(3)   =   "Form1.frx":035E
  81.       Tab(3).ControlCount=   3
  82.       Tab(3).ControlEnabled=   0   'False
  83.       Tab(3).Control(0)=   "OutlineTreeViewX2"
  84.       Tab(3).Control(0).Enabled=   0   'False
  85.       Tab(3).Control(1)=   "Label1(5)"
  86.       Tab(3).Control(1).Enabled=   0   'False
  87.       Tab(3).Control(2)=   "Label1(4)"
  88.       Tab(3).Control(2).Enabled=   0   'False
  89.       TabCaption(4)   =   "&4 Manipulating TreeOptions"
  90.       TabPicture(4)   =   "Form1.frx":037A
  91.       Tab(4).ControlCount=   3
  92.       Tab(4).ControlEnabled=   0   'False
  93.       Tab(4).Control(0)=   "OutlineTreeViewX4"
  94.       Tab(4).Control(0).Enabled=   0   'False
  95.       Tab(4).Control(1)=   "OutlineTreeViewX3"
  96.       Tab(4).Control(1).Enabled=   0   'False
  97.       Tab(4).Control(2)=   "Label2"
  98.       Tab(4).Control(2).Enabled=   0   'False
  99.       TabCaption(5)   =   "&5 Office97 features"
  100.       TabPicture(5)   =   "Form1.frx":0396
  101.       Tab(5).ControlCount=   8
  102.       Tab(5).ControlEnabled=   0   'False
  103.       Tab(5).Control(0)=   "OutlineTreeViewX5"
  104.       Tab(5).Control(0).Enabled=   0   'False
  105.       Tab(5).Control(1)=   "Check7"
  106.       Tab(5).Control(1).Enabled=   -1  'True
  107.       Tab(5).Control(2)=   "Check6"
  108.       Tab(5).Control(2).Enabled=   -1  'True
  109.       Tab(5).Control(3)=   "Check5"
  110.       Tab(5).Control(3).Enabled=   -1  'True
  111.       Tab(5).Control(4)=   "Check4"
  112.       Tab(5).Control(4).Enabled=   -1  'True
  113.       Tab(5).Control(5)=   "Check3"
  114.       Tab(5).Control(5).Enabled=   -1  'True
  115.       Tab(5).Control(6)=   "Check2"
  116.       Tab(5).Control(6).Enabled=   -1  'True
  117.       Tab(5).Control(7)=   "Check1"
  118.       Tab(5).Control(7).Enabled=   -1  'True
  119.       TabCaption(6)   =   "&6 New Styles of Tree"
  120.       TabPicture(6)   =   "Form1.frx":03B2
  121.       Tab(6).ControlCount=   2
  122.       Tab(6).ControlEnabled=   0   'False
  123.       Tab(6).Control(0)=   "OutlineTreeViewX6"
  124.       Tab(6).Control(0).Enabled=   0   'False
  125.       Tab(6).Control(1)=   "OutlineTreeViewX7"
  126.       Tab(6).Control(1).Enabled=   0   'False
  127.       TabCaption(7)   =   "&7 Background Wallpapers"
  128.       TabPicture(7)   =   "Form1.frx":03CE
  129.       Tab(7).ControlCount=   2
  130.       Tab(7).ControlEnabled=   0   'False
  131.       Tab(7).Control(0)=   "OutlineTreeViewX8"
  132.       Tab(7).Control(0).Enabled=   0   'False
  133.       Tab(7).Control(1)=   "Label3"
  134.       Tab(7).Control(1).Enabled=   0   'False
  135.       TabCaption(8)   =   "&8 Load and Save Templates"
  136.       TabPicture(8)   =   "Form1.frx":03EA
  137.       Tab(8).ControlCount=   2
  138.       Tab(8).ControlEnabled=   0   'False
  139.       Tab(8).Control(0)=   "OutlineTreeViewX9"
  140.       Tab(8).Control(0).Enabled=   0   'False
  141.       Tab(8).Control(1)=   "Label9"
  142.       Tab(8).Control(1).Enabled=   0   'False
  143.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX9 
  144.          Height          =   4275
  145.          Left            =   -74700
  146.          TabIndex        =   32
  147.          Top             =   1620
  148.          Width           =   6075
  149.          Style           =   0
  150.          IntegralHeightItem=   1
  151.          Customizable    =   0   'False
  152.          CustomizeMenustring=   "Customize..."
  153.          ClickKey        =   113
  154.          Flat            =   0   'False
  155.          WidthOutline    =   0
  156.          HeadersHeight   =   17
  157.          ValuesText      =   ""
  158.          PropText        =   "This tree to try load and save templates"
  159.          BackgroundColor =   8421504
  160.          SelectedBackgroundColor=   12632256
  161.          Borderstyle     =   1
  162.          Ctl3D           =   -1  'True
  163.          AutoExpand      =   0   'False
  164.          HotTrack        =   0   'False
  165.          ToolTips        =   -1  'True
  166.          TooltipColor    =   -2147483624
  167.          ToolTipPause    =   2000
  168.          BiDiMode        =   0
  169.          DragCursor      =   -12
  170.          ChangeDelay     =   0
  171.          Object.DragMode        =   0
  172.          Enabled         =   -1  'True
  173.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  174.             Name            =   "MS Sans Serif"
  175.             Size            =   8.25
  176.             Charset         =   204
  177.             Weight          =   400
  178.             Underline       =   0   'False
  179.             Italic          =   0   'False
  180.             Strikethrough   =   0   'False
  181.          EndProperty
  182.          Indent          =   19
  183.          ParentColor     =   0   'False
  184.          ParentFont      =   -1  'True
  185.          SortType        =   0
  186.          Object.Visible         =   -1  'True
  187.          DoubleBuffered  =   0   'False
  188.          Cursor          =   0
  189.          InternalProps   =   $"Form1.frx":0406
  190.          TreeShowlines   =   -1  'True
  191.          TreeShowLogic   =   -1  'True
  192.          TreeShowButtons =   -1  'True
  193.          TreeNoPaintNoChilds=   -1  'True
  194.          TreeDrawGrid    =   -1  'True
  195.          TreeResizeCols  =   -1  'True
  196.          TreeEditing     =   -1  'True
  197.          TreeAlwaysShowEditor=   0   'False
  198.          TreePopupOnClick=   0   'False
  199.          TreeRefreshChilds=   0   'False
  200.          TreeRefreshParents=   0   'False
  201.          TreeDrawImages  =   0   'False
  202.          TreeUseIntegralHeight=   0   'False
  203.          TreeShowHeaders =   -1  'True
  204.          TreeWordWrap    =   0   'False
  205.          TreeDrawSplit   =   -1  'True
  206.          Object.Align           =   0
  207.          DrawTransparent =   0   'False
  208.          ButtonCheckedIndex=   -1
  209.          ButtonUnCheckedIndex=   -1
  210.          ButtonGrayedIndex=   -1
  211.          ButtonOptionedIndex=   -1
  212.          ButtonUnOptionedIndex=   -1
  213.          ButtonExpandedIndex=   -1
  214.          ButtonCollapsedIndex=   -1
  215.          ButtonNonChildIndex=   -1
  216.          HeaderColor     =   -2147483633
  217.          BorderWidth     =   4
  218.       End
  219.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX8 
  220.          Height          =   4095
  221.          Left            =   -74820
  222.          TabIndex        =   24
  223.          Top             =   1680
  224.          Width           =   6255
  225.          Style           =   0
  226.          IntegralHeightItem=   1
  227.          Customizable    =   -1  'True
  228.          CustomizeMenustring=   "Customize..."
  229.          ClickKey        =   113
  230.          Flat            =   0   'False
  231.          WidthOutline    =   292
  232.          HeadersHeight   =   20
  233.          ValuesText      =   "Values"
  234.          PropText        =   "SectionsList Style"
  235.          BackgroundColor =   -2147483633
  236.          SelectedBackgroundColor=   8421376
  237.          Borderstyle     =   1
  238.          Ctl3D           =   -1  'True
  239.          AutoExpand      =   0   'False
  240.          HotTrack        =   -1  'True
  241.          ToolTips        =   0   'False
  242.          TooltipColor    =   16776960
  243.          ToolTipPause    =   2000
  244.          BiDiMode        =   0
  245.          DragCursor      =   -12
  246.          ChangeDelay     =   0
  247.          Object.DragMode        =   0
  248.          Enabled         =   -1  'True
  249.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  250.             Name            =   "Arial"
  251.             Size            =   9.75
  252.             Charset         =   204
  253.             Weight          =   700
  254.             Underline       =   0   'False
  255.             Italic          =   0   'False
  256.             Strikethrough   =   0   'False
  257.          EndProperty
  258.          Indent          =   19
  259.          ParentColor     =   0   'False
  260.          ParentFont      =   0   'False
  261.          SortType        =   0
  262.          Object.Visible         =   -1  'True
  263.          DoubleBuffered  =   0   'False
  264.          Cursor          =   0
  265.          InternalProps   =   $"Form1.frx":0817
  266.          TreeShowlines   =   -1  'True
  267.          TreeShowLogic   =   0   'False
  268.          TreeShowButtons =   -1  'True
  269.          TreeNoPaintNoChilds=   0   'False
  270.          TreeDrawGrid    =   -1  'True
  271.          TreeResizeCols  =   -1  'True
  272.          TreeEditing     =   -1  'True
  273.          TreeAlwaysShowEditor=   0   'False
  274.          TreePopupOnClick=   0   'False
  275.          TreeRefreshChilds=   0   'False
  276.          TreeRefreshParents=   0   'False
  277.          TreeDrawImages  =   0   'False
  278.          TreeUseIntegralHeight=   -1  'True
  279.          TreeShowHeaders =   -1  'True
  280.          TreeWordWrap    =   0   'False
  281.          TreeDrawSplit   =   -1  'True
  282.          Object.Align           =   5
  283.          DrawTransparent =   -1  'True
  284.          ButtonCheckedIndex=   -1
  285.          ButtonUnCheckedIndex=   -1
  286.          ButtonGrayedIndex=   -1
  287.          ButtonOptionedIndex=   -1
  288.          ButtonUnOptionedIndex=   -1
  289.          ButtonExpandedIndex=   0
  290.          ButtonCollapsedIndex=   1
  291.          ButtonNonChildIndex=   2
  292.          HeaderColor     =   14737632
  293.          BorderWidth     =   0
  294.       End
  295.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX7 
  296.          Height          =   4815
  297.          Left            =   -71820
  298.          TabIndex        =   22
  299.          Top             =   1080
  300.          Width           =   2925
  301.          Style           =   2
  302.          IntegralHeightItem=   1
  303.          Customizable    =   0   'False
  304.          CustomizeMenustring=   "Customize..."
  305.          ClickKey        =   113
  306.          Flat            =   -1  'True
  307.          WidthOutline    =   120
  308.          HeadersHeight   =   17
  309.          ValuesText      =   "Values"
  310.          PropText        =   "SectionsList"
  311.          BackgroundColor =   12632256
  312.          SelectedBackgroundColor=   12632256
  313.          Borderstyle     =   0
  314.          Ctl3D           =   0   'False
  315.          AutoExpand      =   -1  'True
  316.          HotTrack        =   -1  'True
  317.          ToolTips        =   0   'False
  318.          TooltipColor    =   -2147483624
  319.          ToolTipPause    =   2000
  320.          BiDiMode        =   0
  321.          DragCursor      =   -12
  322.          ChangeDelay     =   0
  323.          Object.DragMode        =   0
  324.          Enabled         =   -1  'True
  325.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  326.             Name            =   "Tahoma"
  327.             Size            =   9.75
  328.             Charset         =   0
  329.             Weight          =   400
  330.             Underline       =   0   'False
  331.             Italic          =   0   'False
  332.             Strikethrough   =   0   'False
  333.          EndProperty
  334.          Indent          =   19
  335.          ParentColor     =   0   'False
  336.          ParentFont      =   0   'False
  337.          SortType        =   0
  338.          Object.Visible         =   -1  'True
  339.          DoubleBuffered  =   0   'False
  340.          Cursor          =   0
  341.          InternalProps   =   $"Form1.frx":8289
  342.          TreeShowlines   =   0   'False
  343.          TreeShowLogic   =   0   'False
  344.          TreeShowButtons =   0   'False
  345.          TreeNoPaintNoChilds=   -1  'True
  346.          TreeDrawGrid    =   -1  'True
  347.          TreeResizeCols  =   -1  'True
  348.          TreeEditing     =   -1  'True
  349.          TreeAlwaysShowEditor=   0   'False
  350.          TreePopupOnClick=   0   'False
  351.          TreeRefreshChilds=   0   'False
  352.          TreeRefreshParents=   0   'False
  353.          TreeDrawImages  =   -1  'True
  354.          TreeUseIntegralHeight=   0   'False
  355.          TreeShowHeaders =   -1  'True
  356.          TreeWordWrap    =   0   'False
  357.          TreeDrawSplit   =   -1  'True
  358.          Object.Align           =   0
  359.          DrawTransparent =   -1  'True
  360.          ButtonCheckedIndex=   -1
  361.          ButtonUnCheckedIndex=   -1
  362.          ButtonGrayedIndex=   -1
  363.          ButtonOptionedIndex=   -1
  364.          ButtonUnOptionedIndex=   -1
  365.          ButtonExpandedIndex=   -1
  366.          ButtonCollapsedIndex=   -1
  367.          ButtonNonChildIndex=   -1
  368.          HeaderColor     =   -2147483633
  369.          BorderWidth     =   0
  370.       End
  371.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX5 
  372.          Height          =   4725
  373.          Left            =   -74880
  374.          TabIndex        =   12
  375.          Top             =   1050
  376.          Width           =   4065
  377.          Style           =   0
  378.          IntegralHeightItem=   2
  379.          Customizable    =   -1  'True
  380.          CustomizeMenustring=   "Customize..."
  381.          ClickKey        =   113
  382.          Flat            =   0   'False
  383.          WidthOutline    =   150
  384.          HeadersHeight   =   17
  385.          ValuesText      =   "Values"
  386.          PropText        =   "Items"
  387.          BackgroundColor =   14737632
  388.          SelectedBackgroundColor=   12632064
  389.          Borderstyle     =   1
  390.          Ctl3D           =   -1  'True
  391.          AutoExpand      =   0   'False
  392.          HotTrack        =   -1  'True
  393.          ToolTips        =   0   'False
  394.          TooltipColor    =   -2147483624
  395.          ToolTipPause    =   2000
  396.          BiDiMode        =   0
  397.          DragCursor      =   -12
  398.          ChangeDelay     =   0
  399.          Object.DragMode        =   0
  400.          Enabled         =   -1  'True
  401.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  402.             Name            =   "Tahoma"
  403.             Size            =   9
  404.             Charset         =   0
  405.             Weight          =   400
  406.             Underline       =   0   'False
  407.             Italic          =   0   'False
  408.             Strikethrough   =   0   'False
  409.          EndProperty
  410.          Indent          =   19
  411.          ParentColor     =   0   'False
  412.          ParentFont      =   0   'False
  413.          SortType        =   0
  414.          Object.Visible         =   -1  'True
  415.          DoubleBuffered  =   0   'False
  416.          Cursor          =   0
  417.          InternalProps   =   $"Form1.frx":A086
  418.          TreeShowlines   =   -1  'True
  419.          TreeShowLogic   =   0   'False
  420.          TreeShowButtons =   -1  'True
  421.          TreeNoPaintNoChilds=   -1  'True
  422.          TreeDrawGrid    =   -1  'True
  423.          TreeResizeCols  =   -1  'True
  424.          TreeEditing     =   -1  'True
  425.          TreeAlwaysShowEditor=   0   'False
  426.          TreePopupOnClick=   0   'False
  427.          TreeRefreshChilds=   -1  'True
  428.          TreeRefreshParents=   -1  'True
  429.          TreeDrawImages  =   0   'False
  430.          TreeUseIntegralHeight=   -1  'True
  431.          TreeShowHeaders =   -1  'True
  432.          TreeWordWrap    =   -1  'True
  433.          TreeDrawSplit   =   -1  'True
  434.          Object.Align           =   0
  435.          DrawTransparent =   -1  'True
  436.          ButtonCheckedIndex=   -1
  437.          ButtonUnCheckedIndex=   -1
  438.          ButtonGrayedIndex=   -1
  439.          ButtonOptionedIndex=   -1
  440.          ButtonUnOptionedIndex=   0
  441.          ButtonExpandedIndex=   1
  442.          ButtonCollapsedIndex=   0
  443.          ButtonNonChildIndex=   -1
  444.          HeaderColor     =   -2147483633
  445.          BorderWidth     =   0
  446.       End
  447.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX3 
  448.          Height          =   4335
  449.          Left            =   -74910
  450.          TabIndex        =   7
  451.          Top             =   1110
  452.          Width           =   3375
  453.          Style           =   0
  454.          IntegralHeightItem=   1
  455.          Customizable    =   -1  'True
  456.          CustomizeMenustring=   "Customize..."
  457.          ClickKey        =   113
  458.          Flat            =   0   'False
  459.          WidthOutline    =   150
  460.          HeadersHeight   =   17
  461.          ValuesText      =   "Values"
  462.          PropText        =   "Items"
  463.          BackgroundColor =   8454143
  464.          SelectedBackgroundColor=   15265023
  465.          Borderstyle     =   1
  466.          Ctl3D           =   -1  'True
  467.          AutoExpand      =   0   'False
  468.          HotTrack        =   -1  'True
  469.          ToolTips        =   0   'False
  470.          TooltipColor    =   -2147483624
  471.          ToolTipPause    =   2000
  472.          BiDiMode        =   0
  473.          DragCursor      =   -12
  474.          ChangeDelay     =   0
  475.          Object.DragMode        =   0
  476.          Enabled         =   -1  'True
  477.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  478.             Name            =   "Tahoma"
  479.             Size            =   9
  480.             Charset         =   0
  481.             Weight          =   400
  482.             Underline       =   0   'False
  483.             Italic          =   0   'False
  484.             Strikethrough   =   0   'False
  485.          EndProperty
  486.          Indent          =   19
  487.          ParentColor     =   0   'False
  488.          ParentFont      =   0   'False
  489.          SortType        =   0
  490.          Object.Visible         =   -1  'True
  491.          DoubleBuffered  =   0   'False
  492.          Cursor          =   0
  493.          InternalProps   =   $"Form1.frx":B8F4
  494.          TreeShowlines   =   -1  'True
  495.          TreeShowLogic   =   0   'False
  496.          TreeShowButtons =   -1  'True
  497.          TreeNoPaintNoChilds=   -1  'True
  498.          TreeDrawGrid    =   -1  'True
  499.          TreeResizeCols  =   -1  'True
  500.          TreeEditing     =   -1  'True
  501.          TreeAlwaysShowEditor=   0   'False
  502.          TreePopupOnClick=   0   'False
  503.          TreeRefreshChilds=   -1  'True
  504.          TreeRefreshParents=   -1  'True
  505.          TreeDrawImages  =   0   'False
  506.          TreeUseIntegralHeight=   0   'False
  507.          TreeShowHeaders =   -1  'True
  508.          TreeWordWrap    =   0   'False
  509.          TreeDrawSplit   =   -1  'True
  510.          Object.Align           =   0
  511.          DrawTransparent =   -1  'True
  512.          ButtonCheckedIndex=   0
  513.          ButtonUnCheckedIndex=   1
  514.          ButtonGrayedIndex=   2
  515.          ButtonOptionedIndex=   3
  516.          ButtonUnOptionedIndex=   4
  517.          ButtonExpandedIndex=   6
  518.          ButtonCollapsedIndex=   5
  519.          ButtonNonChildIndex=   7
  520.          HeaderColor     =   -2147483633
  521.          BorderWidth     =   0
  522.       End
  523.       Begin ISTViewX.OutlineTreeViewX Logictree 
  524.          Height          =   4395
  525.          Left            =   -74820
  526.          TabIndex        =   4
  527.          Top             =   1410
  528.          Width           =   4695
  529.          Style           =   0
  530.          IntegralHeightItem=   1
  531.          Customizable    =   0   'False
  532.          CustomizeMenustring=   "Customize..."
  533.          ClickKey        =   113
  534.          Flat            =   -1  'True
  535.          WidthOutline    =   0
  536.          HeadersHeight   =   17
  537.          ValuesText      =   ""
  538.          PropText        =   "Show How logic Work!!!"
  539.          BackgroundColor =   14737632
  540.          SelectedBackgroundColor=   16777152
  541.          Borderstyle     =   0
  542.          Ctl3D           =   0   'False
  543.          AutoExpand      =   0   'False
  544.          HotTrack        =   -1  'True
  545.          ToolTips        =   0   'False
  546.          TooltipColor    =   -2147483624
  547.          ToolTipPause    =   2000
  548.          BiDiMode        =   0
  549.          DragCursor      =   -12
  550.          ChangeDelay     =   0
  551.          Object.DragMode        =   0
  552.          Enabled         =   -1  'True
  553.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  554.             Name            =   "Tahoma"
  555.             Size            =   9
  556.             Charset         =   0
  557.             Weight          =   400
  558.             Underline       =   0   'False
  559.             Italic          =   0   'False
  560.             Strikethrough   =   0   'False
  561.          EndProperty
  562.          Indent          =   19
  563.          ParentColor     =   0   'False
  564.          ParentFont      =   0   'False
  565.          SortType        =   0
  566.          Object.Visible         =   -1  'True
  567.          DoubleBuffered  =   0   'False
  568.          Cursor          =   0
  569.          InternalProps   =   $"Form1.frx":E5D3
  570.          TreeShowlines   =   -1  'True
  571.          TreeShowLogic   =   -1  'True
  572.          TreeShowButtons =   -1  'True
  573.          TreeNoPaintNoChilds=   -1  'True
  574.          TreeDrawGrid    =   -1  'True
  575.          TreeResizeCols  =   0   'False
  576.          TreeEditing     =   0   'False
  577.          TreeAlwaysShowEditor=   0   'False
  578.          TreePopupOnClick=   0   'False
  579.          TreeRefreshChilds=   -1  'True
  580.          TreeRefreshParents=   -1  'True
  581.          TreeDrawImages  =   0   'False
  582.          TreeUseIntegralHeight=   0   'False
  583.          TreeShowHeaders =   -1  'True
  584.          TreeWordWrap    =   0   'False
  585.          TreeDrawSplit   =   -1  'True
  586.          Object.Align           =   0
  587.          DrawTransparent =   -1  'True
  588.          ButtonCheckedIndex=   0
  589.          ButtonUnCheckedIndex=   1
  590.          ButtonGrayedIndex=   2
  591.          ButtonOptionedIndex=   3
  592.          ButtonUnOptionedIndex=   4
  593.          ButtonExpandedIndex=   5
  594.          ButtonCollapsedIndex=   6
  595.          ButtonNonChildIndex=   -1
  596.          HeaderColor     =   -2147483633
  597.          BorderWidth     =   0
  598.       End
  599.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX2 
  600.          Height          =   3855
  601.          Left            =   -74880
  602.          TabIndex        =   6
  603.          Top             =   1830
  604.          Width           =   5535
  605.          Style           =   0
  606.          IntegralHeightItem=   1
  607.          Customizable    =   0   'False
  608.          CustomizeMenustring=   "Customize..."
  609.          ClickKey        =   113
  610.          Flat            =   0   'False
  611.          WidthOutline    =   250
  612.          HeadersHeight   =   17
  613.          ValuesText      =   "Cells"
  614.          PropText        =   "Types Inplace Editors"
  615.          BackgroundColor =   8454143
  616.          SelectedBackgroundColor=   8421631
  617.          Borderstyle     =   1
  618.          Ctl3D           =   -1  'True
  619.          AutoExpand      =   0   'False
  620.          HotTrack        =   -1  'True
  621.          ToolTips        =   0   'False
  622.          TooltipColor    =   -2147483624
  623.          ToolTipPause    =   2000
  624.          BiDiMode        =   0
  625.          DragCursor      =   -12
  626.          ChangeDelay     =   0
  627.          Object.DragMode        =   0
  628.          Enabled         =   -1  'True
  629.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  630.             Name            =   "MS Sans Serif"
  631.             Size            =   8.25
  632.             Charset         =   204
  633.             Weight          =   400
  634.             Underline       =   0   'False
  635.             Italic          =   0   'False
  636.             Strikethrough   =   0   'False
  637.          EndProperty
  638.          Indent          =   19
  639.          ParentColor     =   0   'False
  640.          ParentFont      =   0   'False
  641.          SortType        =   0
  642.          Object.Visible         =   -1  'True
  643.          DoubleBuffered  =   0   'False
  644.          Cursor          =   0
  645.          InternalProps   =   $"Form1.frx":11830
  646.          TreeShowlines   =   0   'False
  647.          TreeShowLogic   =   0   'False
  648.          TreeShowButtons =   0   'False
  649.          TreeNoPaintNoChilds=   -1  'True
  650.          TreeDrawGrid    =   -1  'True
  651.          TreeResizeCols  =   -1  'True
  652.          TreeEditing     =   -1  'True
  653.          TreeAlwaysShowEditor=   0   'False
  654.          TreePopupOnClick=   0   'False
  655.          TreeRefreshChilds=   -1  'True
  656.          TreeRefreshParents=   -1  'True
  657.          TreeDrawImages  =   -1  'True
  658.          TreeUseIntegralHeight=   0   'False
  659.          TreeShowHeaders =   -1  'True
  660.          TreeWordWrap    =   0   'False
  661.          TreeDrawSplit   =   -1  'True
  662.          Object.Align           =   0
  663.          DrawTransparent =   -1  'True
  664.          ButtonCheckedIndex=   -1
  665.          ButtonUnCheckedIndex=   -1
  666.          ButtonGrayedIndex=   -1
  667.          ButtonOptionedIndex=   -1
  668.          ButtonUnOptionedIndex=   -1
  669.          ButtonExpandedIndex=   -1
  670.          ButtonCollapsedIndex=   -1
  671.          ButtonNonChildIndex=   -1
  672.          HeaderColor     =   -2147483633
  673.          BorderWidth     =   0
  674.       End
  675.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX4 
  676.          Height          =   4065
  677.          Left            =   -71490
  678.          TabIndex        =   8
  679.          Top             =   1410
  680.          Width           =   2175
  681.          Style           =   0
  682.          IntegralHeightItem=   1
  683.          Customizable    =   0   'False
  684.          CustomizeMenustring=   "Customize..."
  685.          ClickKey        =   113
  686.          Flat            =   -1  'True
  687.          WidthOutline    =   0
  688.          HeadersHeight   =   17
  689.          ValuesText      =   ""
  690.          PropText        =   "Options"
  691.          BackgroundColor =   8454143
  692.          SelectedBackgroundColor=   12630192
  693.          Borderstyle     =   0
  694.          Ctl3D           =   0   'False
  695.          AutoExpand      =   0   'False
  696.          HotTrack        =   0   'False
  697.          ToolTips        =   0   'False
  698.          TooltipColor    =   -2147483624
  699.          ToolTipPause    =   2000
  700.          BiDiMode        =   0
  701.          DragCursor      =   -12
  702.          ChangeDelay     =   0
  703.          Object.DragMode        =   0
  704.          Enabled         =   -1  'True
  705.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  706.             Name            =   "Tahoma"
  707.             Size            =   9
  708.             Charset         =   0
  709.             Weight          =   400
  710.             Underline       =   0   'False
  711.             Italic          =   0   'False
  712.             Strikethrough   =   0   'False
  713.          EndProperty
  714.          Indent          =   19
  715.          ParentColor     =   0   'False
  716.          ParentFont      =   0   'False
  717.          SortType        =   0
  718.          Object.Visible         =   -1  'True
  719.          DoubleBuffered  =   0   'False
  720.          Cursor          =   0
  721.          InternalProps   =   $"Form1.frx":14399
  722.          TreeShowlines   =   0   'False
  723.          TreeShowLogic   =   -1  'True
  724.          TreeShowButtons =   0   'False
  725.          TreeNoPaintNoChilds=   0   'False
  726.          TreeDrawGrid    =   -1  'True
  727.          TreeResizeCols  =   -1  'True
  728.          TreeEditing     =   -1  'True
  729.          TreeAlwaysShowEditor=   0   'False
  730.          TreePopupOnClick=   0   'False
  731.          TreeRefreshChilds=   -1  'True
  732.          TreeRefreshParents=   -1  'True
  733.          TreeDrawImages  =   0   'False
  734.          TreeUseIntegralHeight=   0   'False
  735.          TreeShowHeaders =   -1  'True
  736.          TreeWordWrap    =   0   'False
  737.          TreeDrawSplit   =   -1  'True
  738.          Object.Align           =   0
  739.          DrawTransparent =   -1  'True
  740.          ButtonCheckedIndex=   0
  741.          ButtonUnCheckedIndex=   1
  742.          ButtonGrayedIndex=   -1
  743.          ButtonOptionedIndex=   -1
  744.          ButtonUnOptionedIndex=   -1
  745.          ButtonExpandedIndex=   -1
  746.          ButtonCollapsedIndex=   -1
  747.          ButtonNonChildIndex=   -1
  748.          HeaderColor     =   -2147483633
  749.          BorderWidth     =   0
  750.       End
  751.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX6 
  752.          Height          =   4815
  753.          Left            =   -74880
  754.          TabIndex        =   13
  755.          Top             =   1080
  756.          Width           =   2925
  757.          Style           =   1
  758.          IntegralHeightItem=   1
  759.          Customizable    =   0   'False
  760.          CustomizeMenustring=   "Customize..."
  761.          ClickKey        =   113
  762.          Flat            =   -1  'True
  763.          WidthOutline    =   0
  764.          HeadersHeight   =   17
  765.          ValuesText      =   ""
  766.          PropText        =   "Explorer Bar"
  767.          BackgroundColor =   12632256
  768.          SelectedBackgroundColor=   12632256
  769.          Borderstyle     =   0
  770.          Ctl3D           =   0   'False
  771.          AutoExpand      =   -1  'True
  772.          HotTrack        =   -1  'True
  773.          ToolTips        =   0   'False
  774.          TooltipColor    =   -2147483624
  775.          ToolTipPause    =   2000
  776.          BiDiMode        =   0
  777.          DragCursor      =   -12
  778.          ChangeDelay     =   0
  779.          Object.DragMode        =   0
  780.          Enabled         =   -1  'True
  781.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  782.             Name            =   "Tahoma"
  783.             Size            =   9.75
  784.             Charset         =   0
  785.             Weight          =   400
  786.             Underline       =   0   'False
  787.             Italic          =   0   'False
  788.             Strikethrough   =   0   'False
  789.          EndProperty
  790.          Indent          =   19
  791.          ParentColor     =   0   'False
  792.          ParentFont      =   0   'False
  793.          SortType        =   0
  794.          Object.Visible         =   -1  'True
  795.          DoubleBuffered  =   0   'False
  796.          Cursor          =   0
  797.          InternalProps   =   $"Form1.frx":15589
  798.          TreeShowlines   =   0   'False
  799.          TreeShowLogic   =   0   'False
  800.          TreeShowButtons =   0   'False
  801.          TreeNoPaintNoChilds=   -1  'True
  802.          TreeDrawGrid    =   -1  'True
  803.          TreeResizeCols  =   -1  'True
  804.          TreeEditing     =   0   'False
  805.          TreeAlwaysShowEditor=   0   'False
  806.          TreePopupOnClick=   0   'False
  807.          TreeRefreshChilds=   0   'False
  808.          TreeRefreshParents=   0   'False
  809.          TreeDrawImages  =   -1  'True
  810.          TreeUseIntegralHeight=   0   'False
  811.          TreeShowHeaders =   -1  'True
  812.          TreeWordWrap    =   0   'False
  813.          TreeDrawSplit   =   0   'False
  814.          Object.Align           =   0
  815.          DrawTransparent =   -1  'True
  816.          ButtonCheckedIndex=   -1
  817.          ButtonUnCheckedIndex=   -1
  818.          ButtonGrayedIndex=   -1
  819.          ButtonOptionedIndex=   -1
  820.          ButtonUnOptionedIndex=   -1
  821.          ButtonExpandedIndex=   -1
  822.          ButtonCollapsedIndex=   -1
  823.          ButtonNonChildIndex=   -1
  824.          HeaderColor     =   -2147483633
  825.          BorderWidth     =   0
  826.       End
  827.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX1 
  828.          Height          =   3885
  829.          Left            =   -74850
  830.          TabIndex        =   14
  831.          Top             =   1950
  832.          Width           =   4695
  833.          Style           =   0
  834.          IntegralHeightItem=   1
  835.          Customizable    =   0   'False
  836.          CustomizeMenustring=   "Customize..."
  837.          ClickKey        =   113
  838.          Flat            =   -1  'True
  839.          WidthOutline    =   200
  840.          HeadersHeight   =   17
  841.          ValuesText      =   "Password"
  842.          PropText        =   "Login"
  843.          BackgroundColor =   14737632
  844.          SelectedBackgroundColor=   14737632
  845.          Borderstyle     =   0
  846.          Ctl3D           =   0   'False
  847.          AutoExpand      =   0   'False
  848.          HotTrack        =   -1  'True
  849.          ToolTips        =   0   'False
  850.          TooltipColor    =   -2147483624
  851.          ToolTipPause    =   2000
  852.          BiDiMode        =   0
  853.          DragCursor      =   -12
  854.          ChangeDelay     =   0
  855.          Object.DragMode        =   0
  856.          Enabled         =   -1  'True
  857.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  858.             Name            =   "Tahoma"
  859.             Size            =   9
  860.             Charset         =   0
  861.             Weight          =   400
  862.             Underline       =   0   'False
  863.             Italic          =   0   'False
  864.             Strikethrough   =   0   'False
  865.          EndProperty
  866.          Indent          =   19
  867.          ParentColor     =   0   'False
  868.          ParentFont      =   0   'False
  869.          SortType        =   0
  870.          Object.Visible         =   -1  'True
  871.          DoubleBuffered  =   0   'False
  872.          Cursor          =   0
  873.          InternalProps   =   $"Form1.frx":17350
  874.          TreeShowlines   =   -1  'True
  875.          TreeShowLogic   =   0   'False
  876.          TreeShowButtons =   -1  'True
  877.          TreeNoPaintNoChilds=   -1  'True
  878.          TreeDrawGrid    =   -1  'True
  879.          TreeResizeCols  =   -1  'True
  880.          TreeEditing     =   -1  'True
  881.          TreeAlwaysShowEditor=   0   'False
  882.          TreePopupOnClick=   0   'False
  883.          TreeRefreshChilds=   0   'False
  884.          TreeRefreshParents=   0   'False
  885.          TreeDrawImages  =   0   'False
  886.          TreeUseIntegralHeight=   0   'False
  887.          TreeShowHeaders =   -1  'True
  888.          TreeWordWrap    =   0   'False
  889.          TreeDrawSplit   =   -1  'True
  890.          Object.Align           =   0
  891.          DrawTransparent =   -1  'True
  892.          ButtonCheckedIndex=   -1
  893.          ButtonUnCheckedIndex=   -1
  894.          ButtonGrayedIndex=   -1
  895.          ButtonOptionedIndex=   -1
  896.          ButtonUnOptionedIndex=   -1
  897.          ButtonExpandedIndex=   1
  898.          ButtonCollapsedIndex=   0
  899.          ButtonNonChildIndex=   -1
  900.          HeaderColor     =   -2147483633
  901.          BorderWidth     =   0
  902.       End
  903.       Begin VB.PictureBox Picture1 
  904.          Appearance      =   0  'Flat
  905.          AutoSize        =   -1  'True
  906.          BackColor       =   &H8000000B&
  907.          BorderStyle     =   0  'None
  908.          DrawMode        =   2  'Blackness
  909.          FillColor       =   &H00C0C0C0&
  910.          FillStyle       =   0  'Solid
  911.          ForeColor       =   &H8000000B&
  912.          Height          =   945
  913.          Left            =   180
  914.          Picture         =   "Form1.frx":18612
  915.          ScaleHeight     =   945
  916.          ScaleWidth      =   1725
  917.          TabIndex        =   26
  918.          Top             =   1020
  919.          Width           =   1725
  920.       End
  921.       Begin VB.TextBox Text1 
  922.          BackColor       =   &H80000016&
  923.          BeginProperty Font 
  924.             Name            =   "Tahoma"
  925.             Size            =   9
  926.             Charset         =   204
  927.             Weight          =   400
  928.             Underline       =   0   'False
  929.             Italic          =   0   'False
  930.             Strikethrough   =   0   'False
  931.          EndProperty
  932.          Height          =   3195
  933.          Left            =   180
  934.          Locked          =   -1  'True
  935.          MultiLine       =   -1  'True
  936.          ScrollBars      =   3  'Both
  937.          TabIndex        =   23
  938.          Text            =   "Form1.frx":1DBF8
  939.          Top             =   2520
  940.          Width           =   6195
  941.       End
  942.       Begin VB.CheckBox Check7 
  943.          Caption         =   "OnSelectedchanging"
  944.          Height          =   225
  945.          Left            =   -70620
  946.          TabIndex        =   21
  947.          Top             =   3060
  948.          Width           =   1875
  949.       End
  950.       Begin VB.CheckBox Check6 
  951.          Caption         =   "OnSelectedChanged"
  952.          Height          =   225
  953.          Left            =   -70620
  954.          TabIndex        =   20
  955.          Top             =   2760
  956.          Width           =   1815
  957.       End
  958.       Begin VB.CheckBox Check5 
  959.          Caption         =   "ToolTips"
  960.          Height          =   255
  961.          Left            =   -70620
  962.          TabIndex        =   19
  963.          Top             =   2460
  964.          Width           =   1935
  965.       End
  966.       Begin VB.CheckBox Check4 
  967.          Caption         =   "HotTrack"
  968.          Height          =   255
  969.          Left            =   -70620
  970.          TabIndex        =   18
  971.          Top             =   2160
  972.          Width           =   1995
  973.       End
  974.       Begin VB.CheckBox Check3 
  975.          Caption         =   "SingleExpand"
  976.          Height          =   315
  977.          Left            =   -70620
  978.          TabIndex        =   17
  979.          Top             =   1860
  980.          Width           =   1935
  981.       End
  982.       Begin VB.CheckBox Check2 
  983.          Caption         =   "Wordwrap"
  984.          Height          =   255
  985.          Left            =   -70620
  986.          TabIndex        =   16
  987.          Top             =   1380
  988.          Value           =   1  'Checked
  989.          Width           =   1815
  990.       End
  991.       Begin VB.CheckBox Check1 
  992.          Caption         =   "OnIntegralHeightItem"
  993.          Height          =   315
  994.          Left            =   -70620
  995.          TabIndex        =   15
  996.          Top             =   1620
  997.          Value           =   1  'Checked
  998.          Width           =   1995
  999.       End
  1000.       Begin VB.Label Label10 
  1001.          Alignment       =   2  'Center
  1002.          Caption         =   "Fast and Professionally Looking Control for displaying and editing hierarchical data"
  1003.          BeginProperty Font 
  1004.             Name            =   "Tahoma"
  1005.             Size            =   9.75
  1006.             Charset         =   204
  1007.             Weight          =   700
  1008.             Underline       =   0   'False
  1009.             Italic          =   0   'False
  1010.             Strikethrough   =   0   'False
  1011.          EndProperty
  1012.          Height          =   555
  1013.          Left            =   180
  1014.          TabIndex        =   34
  1015.          Top             =   1980
  1016.          Width           =   6075
  1017.       End
  1018.       Begin VB.Label Label9 
  1019.          Alignment       =   2  'Center
  1020.          BackColor       =   &H80000018&
  1021.          BackStyle       =   0  'Transparent
  1022.          Caption         =   "Right Click Mouse on Tree and load Template. Be convinced, that it fast and simply"
  1023.          BeginProperty Font 
  1024.             Name            =   "Tahoma"
  1025.             Size            =   9.75
  1026.             Charset         =   204
  1027.             Weight          =   700
  1028.             Underline       =   0   'False
  1029.             Italic          =   0   'False
  1030.             Strikethrough   =   0   'False
  1031.          EndProperty
  1032.          Height          =   495
  1033.          Left            =   -74820
  1034.          TabIndex        =   33
  1035.          Top             =   1080
  1036.          Width           =   6195
  1037.       End
  1038.       Begin VB.Label Label8 
  1039.          AutoSize        =   -1  'True
  1040.          Caption         =   "imcasys@xoommail.com"
  1041.          BeginProperty Font 
  1042.             Name            =   "Tahoma"
  1043.             Size            =   9.75
  1044.             Charset         =   204
  1045.             Weight          =   400
  1046.             Underline       =   -1  'True
  1047.             Italic          =   0   'False
  1048.             Strikethrough   =   0   'False
  1049.          EndProperty
  1050.          ForeColor       =   &H8000000D&
  1051.          Height          =   240
  1052.          Left            =   3180
  1053.          TabIndex        =   31
  1054.          Top             =   1620
  1055.          Width           =   2100
  1056.       End
  1057.       Begin VB.Label Label7 
  1058.          AutoSize        =   -1  'True
  1059.          Caption         =   "http://members.xoom.com/imcasys"
  1060.          BeginProperty Font 
  1061.             Name            =   "Tahoma"
  1062.             Size            =   9.75
  1063.             Charset         =   204
  1064.             Weight          =   400
  1065.             Underline       =   -1  'True
  1066.             Italic          =   0   'False
  1067.             Strikethrough   =   0   'False
  1068.          EndProperty
  1069.          ForeColor       =   &H8000000D&
  1070.          Height          =   240
  1071.          Left            =   3180
  1072.          TabIndex        =   30
  1073.          Top             =   1320
  1074.          Width           =   3060
  1075.       End
  1076.       Begin VB.Label Label6 
  1077.          AutoSize        =   -1  'True
  1078.          Caption         =   "E-mail:"
  1079.          BeginProperty Font 
  1080.             Name            =   "Tahoma"
  1081.             Size            =   9.75
  1082.             Charset         =   204
  1083.             Weight          =   400
  1084.             Underline       =   0   'False
  1085.             Italic          =   0   'False
  1086.             Strikethrough   =   0   'False
  1087.          EndProperty
  1088.          Height          =   240
  1089.          Left            =   2040
  1090.          TabIndex        =   29
  1091.          Top             =   1620
  1092.          Width           =   615
  1093.       End
  1094.       Begin VB.Label Label5 
  1095.          AutoSize        =   -1  'True
  1096.          Caption         =   "Home Page:"
  1097.          BeginProperty Font 
  1098.             Name            =   "Tahoma"
  1099.             Size            =   9.75
  1100.             Charset         =   204
  1101.             Weight          =   400
  1102.             Underline       =   0   'False
  1103.             Italic          =   0   'False
  1104.             Strikethrough   =   0   'False
  1105.          EndProperty
  1106.          Height          =   240
  1107.          Left            =   2040
  1108.          TabIndex        =   28
  1109.          Top             =   1320
  1110.          Width           =   1050
  1111.       End
  1112.       Begin VB.Label Label4 
  1113.          Alignment       =   2  'Center
  1114.          Caption         =   "OutlineTreeViewX ActiveX"
  1115.          BeginProperty Font 
  1116.             Name            =   "Tahoma"
  1117.             Size            =   9.75
  1118.             Charset         =   204
  1119.             Weight          =   700
  1120.             Underline       =   0   'False
  1121.             Italic          =   0   'False
  1122.             Strikethrough   =   0   'False
  1123.          EndProperty
  1124.          Height          =   255
  1125.          Left            =   1980
  1126.          TabIndex        =   27
  1127.          Top             =   1080
  1128.          Width           =   4335
  1129.       End
  1130.       Begin VB.Label Label3 
  1131.          Alignment       =   2  'Center
  1132.          Caption         =   "Right Click Mouse on Tree and customize Background wallpaper!!!"
  1133.          BeginProperty Font 
  1134.             Name            =   "Tahoma"
  1135.             Size            =   9.75
  1136.             Charset         =   204
  1137.             Weight          =   700
  1138.             Underline       =   0   'False
  1139.             Italic          =   0   'False
  1140.             Strikethrough   =   0   'False
  1141.          EndProperty
  1142.          Height          =   495
  1143.          Left            =   -74760
  1144.          TabIndex        =   25
  1145.          Top             =   1080
  1146.          Width           =   6195
  1147.       End
  1148.       Begin VB.Label Label2 
  1149.          AutoSize        =   -1  'True
  1150.          Caption         =   "Select Options:"
  1151.          Height          =   195
  1152.          Left            =   -71430
  1153.          TabIndex        =   11
  1154.          Top             =   1170
  1155.          Width           =   1080
  1156.       End
  1157.       Begin VB.Label Label1 
  1158.          AutoSize        =   -1  'True
  1159.          Caption         =   "Show some styles of inplace editors for item's cells"
  1160.          BeginProperty Font 
  1161.             Name            =   "Tahoma"
  1162.             Size            =   9
  1163.             Charset         =   204
  1164.             Weight          =   700
  1165.             Underline       =   0   'False
  1166.             Italic          =   0   'False
  1167.             Strikethrough   =   0   'False
  1168.          EndProperty
  1169.          Height          =   210
  1170.          Index           =   5
  1171.          Left            =   -74760
  1172.          TabIndex        =   10
  1173.          Top             =   1140
  1174.          Width           =   5415
  1175.          WordWrap        =   -1  'True
  1176.       End
  1177.       Begin VB.Label Label1 
  1178.          AutoSize        =   -1  'True
  1179.          Caption         =   "Tip: Hotkey for Edit Mode - F2"
  1180.          BeginProperty Font 
  1181.             Name            =   "Tahoma"
  1182.             Size            =   9
  1183.             Charset         =   204
  1184.             Weight          =   700
  1185.             Underline       =   0   'False
  1186.             Italic          =   0   'False
  1187.             Strikethrough   =   0   'False
  1188.          EndProperty
  1189.          ForeColor       =   &H000000FF&
  1190.          Height          =   210
  1191.          Index           =   4
  1192.          Left            =   -74850
  1193.          TabIndex        =   9
  1194.          Top             =   1470
  1195.          Width           =   2775
  1196.       End
  1197.       Begin VB.Label Label1 
  1198.          AutoSize        =   -1  'True
  1199.          Caption         =   "Tip: Toggle State Of Node - Insert Key!"
  1200.          BeginProperty Font 
  1201.             Name            =   "Tahoma"
  1202.             Size            =   9
  1203.             Charset         =   204
  1204.             Weight          =   700
  1205.             Underline       =   0   'False
  1206.             Italic          =   0   'False
  1207.             Strikethrough   =   0   'False
  1208.          EndProperty
  1209.          ForeColor       =   &H00C0FFFF&
  1210.          Height          =   210
  1211.          Index           =   3
  1212.          Left            =   -74760
  1213.          TabIndex        =   5
  1214.          Top             =   1080
  1215.          Width           =   3570
  1216.       End
  1217.       Begin VB.Label Label1 
  1218.          AutoSize        =   -1  'True
  1219.          Caption         =   "Login and Input your password:"
  1220.          BeginProperty Font 
  1221.             Name            =   "Tahoma"
  1222.             Size            =   9
  1223.             Charset         =   204
  1224.             Weight          =   700
  1225.             Underline       =   0   'False
  1226.             Italic          =   0   'False
  1227.             Strikethrough   =   0   'False
  1228.          EndProperty
  1229.          Height          =   210
  1230.          Index           =   2
  1231.          Left            =   -74760
  1232.          TabIndex        =   3
  1233.          Top             =   1680
  1234.          Width           =   2985
  1235.       End
  1236.       Begin VB.Label Label1 
  1237.          AutoSize        =   -1  'True
  1238.          Caption         =   "Tip: Hotkey for Edit Mode - F2"
  1239.          BeginProperty Font 
  1240.             Name            =   "Tahoma"
  1241.             Size            =   9
  1242.             Charset         =   204
  1243.             Weight          =   700
  1244.             Underline       =   0   'False
  1245.             Italic          =   0   'False
  1246.             Strikethrough   =   0   'False
  1247.          EndProperty
  1248.          ForeColor       =   &H00C0FFFF&
  1249.          Height          =   210
  1250.          Index           =   1
  1251.          Left            =   -74820
  1252.          TabIndex        =   2
  1253.          Top             =   1320
  1254.          Width           =   2775
  1255.       End
  1256.       Begin VB.Label Label1 
  1257.          AutoSize        =   -1  'True
  1258.          Caption         =   "Show how to use input and output data with using passwords."
  1259.          BeginProperty Font 
  1260.             Name            =   "Tahoma"
  1261.             Size            =   9
  1262.             Charset         =   204
  1263.             Weight          =   700
  1264.             Underline       =   0   'False
  1265.             Italic          =   0   'False
  1266.             Strikethrough   =   0   'False
  1267.          EndProperty
  1268.          Height          =   420
  1269.          Index           =   0
  1270.          Left            =   -74820
  1271.          TabIndex        =   0
  1272.          Top             =   1080
  1273.          Width           =   6195
  1274.          WordWrap        =   -1  'True
  1275.       End
  1276.    End
  1277. Attribute VB_Name = "Form1"
  1278. Attribute VB_GlobalNameSpace = False
  1279. Attribute VB_Creatable = False
  1280. Attribute VB_PredeclaredId = True
  1281. Attribute VB_Exposed = False
  1282. Private Sub Check1_Click()
  1283.     OutlineTreeViewX5.Refresh '   Applies to : OutlineTreeViewX{linkID=10}
  1284. End Sub
  1285. Private Sub Check2_Click()
  1286.   If Check2.Value = 1 Then
  1287.     OutlineTreeViewX5.TreeWordWrap = True
  1288.   Else
  1289.     OutlineTreeViewX5.TreeWordWrap = False
  1290.   End If
  1291. End Sub
  1292. Private Sub Check3_Click()
  1293.   If Check3.Value = 1 Then
  1294.     OutlineTreeViewX5.AutoExpand = True
  1295.   Else
  1296.     OutlineTreeViewX5.AutoExpand = False
  1297.   End If
  1298. End Sub
  1299. Private Sub Check4_Click()
  1300.   If Check4.Value = 1 Then
  1301.     OutlineTreeViewX5.HotTrack = True
  1302.   Else
  1303.     OutlineTreeViewX5.HotTrack = False
  1304.   End If
  1305. End Sub
  1306. Private Sub Check5_Click()
  1307.   If Check5.Value = 1 Then
  1308.     OutlineTreeViewX5.ToolTips = True
  1309.   Else
  1310.     OutlineTreeViewX5.ToolTips = False
  1311.   End If
  1312. End Sub
  1313. Private Sub Form_Load()
  1314.     RefreshOptions
  1315.     SSTab1.Tab = 0
  1316. End Sub
  1317. Private Sub OutlineTreeViewX1_OnGetEditStyle(aEditStyle As Variant, ByVal Node As ISTViewX.TreeItem)
  1318. aEditStyle = etsSimple
  1319. End Sub
  1320. Private Sub OutlineTreeViewX1_OnGetNodeData(aData As Variant, PwdChar As Variant, MaxLength As Variant, ByVal Node As ISTViewX.TreeItem)
  1321.    aData = OutlineTreeViewX1.GetItemData(Node)
  1322.    PwdChar = True
  1323.    If (aData = "") And (OutlineTreeViewX1.ItemLevel(Node) > 0) And (OutlineTreeViewX1.GetSelectedItem = Node) Then
  1324.         aData = "<Enter Password>"
  1325.         PwdChar = False
  1326.    End If
  1327.    MaxLength = 0
  1328. End Sub
  1329. Private Sub OutlineTreeViewX1_OnIsReadOnlyNode(aReadOnly As Variant, ByVal Node As ISTViewX.TreeItem)
  1330.     If OutlineTreeViewX1.ItemLevel(Node) = 0 Then
  1331.         aReadOnly = True
  1332.         MsgBox "For Departments password Not required!", vbOKOnly, "Warning"
  1333.     Else: aReadOnly = False
  1334.    End If
  1335. End Sub
  1336. Private Sub OutlineTreeViewX1_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1337.     If Len(aData) >= 6 Then
  1338.        OutlineTreeViewX1.SetItemData Node, aData
  1339.        MsgBox "Password Accepted!", vbOKOnly, "Information"
  1340.     Else
  1341.       MsgBox "Password Not Accepted: Required 6 or more symbols", vbOKOnly, "Information"
  1342.     End If
  1343. End Sub
  1344. Private Sub OutlineTreeViewX2_OnEditButtonClick(ByVal Node As ISTViewX.TreeItem)
  1345.    'get data from tree
  1346.    aTreeData$ = OutlineTreeViewX2.GetItemData(Node)
  1347.    ' firing input Box
  1348.    EnterStr$ = InputBox("Please, enter data:", "Entering Datas", aTreeData$)
  1349.    ' setting data
  1350.    If (EnterStr <> aTreeData) And (EnterStr <> "") Then
  1351.         OutlineTreeViewX2.SetItemData Node, EnterStr$
  1352.    End If
  1353. End Sub
  1354. Private Sub OutlineTreeViewX2_OnGetEditStyle(aEditStyle As Variant, ByVal Node As ISTViewX.TreeItem)
  1355. Select Case OutlineTreeViewX2.ItemAbsoluteIndex(Node)
  1356.     Case 0, 1: aEditStyle = etsSimple
  1357.     Case 2: aEditStyle = etsPickList
  1358.     Case 3: aEditStyle = etsCheckList
  1359.     Case 4: aEditStyle = etsEllipsis
  1360. End Select
  1361. End Sub
  1362. Private Sub OutlineTreeViewX2_OnGetNodeData(aData As Variant, PwdChar As Variant, MaxLength As Variant, ByVal Node As ISTViewX.TreeItem)
  1363.         'getting data from tree
  1364.         aData = OutlineTreeViewX2.GetItemData(Node)
  1365.         ' processing pwd char
  1366.         If OutlineTreeViewX2.ItemAbsoluteIndex(Node) <> 1 Then
  1367.             PwdChar = False
  1368.         Else: PwdChar = True
  1369.        End If
  1370. End Sub
  1371. Private Sub OutlineTreeViewX2_OnGetPicklist(aPickList As Variant, ByVal Node As ISTViewX.TreeItem)
  1372. Select Case OutlineTreeViewX2.ItemAbsoluteIndex(Node)
  1373.     'forming list of data separated char #13
  1374.     Case 2: aPickList = "Item1" + Chr(13) + "Item2" + Chr(13) + "Item3" + Chr(13) + "Item4"
  1375.     Case 3: aPickList = "Checkbox1" + Chr(13) + "Checkbox2" + Chr(13) + "Checkbox3" + Chr(13) + "Checkbox4"
  1376. End Select
  1377. End Sub
  1378. Private Sub OutlineTreeViewX2_OnIsReadOnlyNode(aReadOnly As Variant, ByVal Node As ISTViewX.TreeItem)
  1379.     ' setting flag to readOnly
  1380.     aReadOnly = OutlineTreeViewX2.ItemAbsoluteIndex(Node) = 5
  1381. End Sub
  1382. Private Sub OutlineTreeViewX2_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1383.     ' input data to Tree
  1384.     OutlineTreeViewX2.SetItemData Node, aData
  1385. End Sub
  1386. Private Sub OutlineTreeViewX3_OnGetNodeData(aData As Variant, PwdChar As Variant, MaxLength As Variant, ByVal Node As ISTViewX.TreeItem)
  1387.     aData = OutlineTreeViewX3.GetItemData(Node)
  1388. End Sub
  1389. Private Sub OutlineTreeViewX3_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1390.     OutlineTreeViewX3.SetItemData Node, aData
  1391. End Sub
  1392. Private Sub OutlineTreeViewX4_OnAfterApply()
  1393.     RefreshOptions
  1394. End Sub
  1395. Private Sub OutlineTreeViewX4_OnAfterCustomize()
  1396.     RefreshOptions
  1397. End Sub
  1398. Private Sub OutlineTreeViewX4_OnStateChange(ByVal Oldindex As Long, ByVal Node As ISTViewX.TreeItem)
  1399. If OutlineTreeViewX4.GetItemStateIndex(Node) = 2 Then 'checked state
  1400.   aState = True
  1401.     aState = False
  1402. End If
  1403. Select Case OutlineTreeViewX4.ItemAbsoluteIndex(Node)
  1404.     Case 0:     OutlineTreeViewX3.TreeShowlines = aState
  1405.     Case 1:     OutlineTreeViewX3.TreeShowLogic = aState
  1406.     Case 2:     OutlineTreeViewX3.TreeShowButtons = aState
  1407.     Case 3:     OutlineTreeViewX3.TreeNoPaintNoChilds = aState
  1408.     Case 4:     OutlineTreeViewX3.TreeDrawGrid = aState
  1409.     Case 5:     OutlineTreeViewX3.TreeResizeCols = aState
  1410.     Case 6:     OutlineTreeViewX3.TreeEditing = aState
  1411.     Case 7:     OutlineTreeViewX3.TreeAlwaysShowEditor = aState
  1412.     Case 8:     OutlineTreeViewX3.TreeDrawSplit = aState
  1413. End Select
  1414. End Sub
  1415. Public Sub RefreshOptions()
  1416. For i = 0 To OutlineTreeViewX4.Count - 1
  1417.     Select Case i
  1418.         Case 0:     aState = OutlineTreeViewX3.TreeShowlines
  1419.         Case 1:     aState = OutlineTreeViewX3.TreeShowLogic
  1420.         Case 2:     aState = OutlineTreeViewX3.TreeShowButtons
  1421.         Case 3:     aState = OutlineTreeViewX3.TreeNoPaintNoChilds
  1422.         Case 4:     aState = OutlineTreeViewX3.TreeDrawGrid
  1423.         Case 5:     aState = OutlineTreeViewX3.TreeResizeCols
  1424.         Case 6:     aState = OutlineTreeViewX3.TreeEditing
  1425.         Case 7:     aState = OutlineTreeViewX3.TreeAlwaysShowEditor
  1426.         Case 8:     aState = OutlineTreeViewX3.TreeDrawSplit
  1427.     End Select
  1428.     If aState = True Then
  1429.       OutlineTreeViewX4.SetItemStateIndex OutlineTreeViewX4.Item(i), 2
  1430.     Else
  1431.         OutlineTreeViewX4.SetItemStateIndex OutlineTreeViewX4.Item(i), 1
  1432.     End If
  1433. End Sub
  1434. Private Sub OutlineTreeViewX5_OnGetIntegralHeightItem(aHeight As Variant, ByVal Node As ISTViewX.TreeItem)
  1435.    If Check1.Value = 1 Then
  1436.       If OutlineTreeViewX5.ItemLevel(Node) > 0 Then aHeight = 1 Else aHeight = 2
  1437.    Else
  1438.      aHeight = OutlineTreeViewX5.IntegralHeightItem
  1439.    End If
  1440. End Sub
  1441. Private Sub OutlineTreeViewX5_OnGetNodeData(aData As Variant, PwdChar As Variant, MaxLength As Variant, ByVal Node As ISTViewX.TreeItem)
  1442. aData = OutlineTreeViewX5.GetItemData(Node)
  1443. If (aData = "") And (OutlineTreeViewX5.GetSelectedItem = Node) Then
  1444.         aData = "<Enter your data>"
  1445.  End If
  1446. End Sub
  1447. Private Sub OutlineTreeViewX5_OnSelectedChanged(ByVal OldNode As ISTViewX.TreeItem, ByVal NewNode As ISTViewX.TreeItem)
  1448. If Check6.Value = 1 Then
  1449.     If OldNode <> 0 Then OldNodeText = OutlineTreeViewX5.ItemGetText(OldNode) Else OldNodeText = "UnSelected"
  1450.     If NewNode <> 0 Then NewNodeText = OutlineTreeViewX5.ItemGetText(NewNode) Else NewNodeText = "UnSelected"
  1451.     MsgBox "SelectedChanged: OldNode:" + OldNodeText + " NewNode:" + NewNodeText
  1452.   End If
  1453. End Sub
  1454. Private Sub OutlineTreeViewX5_OnSelectedChanging(ByVal OldNode As ISTViewX.TreeItem, ByVal NewNode As ISTViewX.TreeItem)
  1455.  If Check7.Value = 1 Then
  1456.     If OldNode <> 0 Then OldNodeText = OutlineTreeViewX5.ItemGetText(OldNode) Else OldNodeText = "UnSelected"
  1457.     If NewNode <> 0 Then NewNodeText = OutlineTreeViewX5.ItemGetText(NewNode) Else NewNodeText = "UnSelected"
  1458.     MsgBox "SelectedChanging: OldNode:" + OldNodeText + " NewNode:" + NewNodeText
  1459.   End If
  1460. End Sub
  1461. Private Sub OutlineTreeViewX5_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1462.      OutlineTreeViewX5.SetItemData Node, Data
  1463. End Sub
  1464. Private Sub OutlineTreeViewX7_OnGetNodeData(aData As Variant, PwdChar As Variant, MaxLength As Variant, ByVal Node As ISTViewX.TreeItem)
  1465.     aData = OutlineTreeViewX7.GetItemData(Node)
  1466.     If aData = "" Then aData = "<Enter Your Data>"
  1467. End Sub
  1468. Private Sub OutlineTreeViewX7_OnIsReadOnlyNode(aReadOnly As Variant, ByVal Node As ISTViewX.TreeItem)
  1469.     If OutlineTreeViewX7.ItemLevel(Node) = 0 Then aReadOnly = True
  1470. End Sub
  1471. Private Sub OutlineTreeViewX7_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1472.         ' input data to Tree
  1473.     OutlineTreeViewX3.SetItemData Node, aData
  1474. End Sub
  1475. Private Sub SSTab1_Click(PreviousTab As Integer)
  1476.    If SSTab1.Tab = 4 Then RefreshOptions
  1477. End Sub
  1478.